﻿Imports System.Data.OleDb
Imports System.Data
Imports System.Data.SqlClient

Public Class Socios
    Inherits Datos

    Public Sub AgregarSocio(ByVal dni As Integer, ByVal nombre As String, ByVal apellido As String, ByVal clave As String, ByVal domicilio As String, ByVal telefono As String, ByVal correo As String)
        Dim comando As New OleDbCommand()
        comando.CommandType = Data.CommandType.StoredProcedure
        comando.Connection = Conexion
        comando.CommandText = "Socios_Agregar"

        'Agregamos a la colección de parámetros los parametros que necesita el procedimiento almacenado
        comando.Parameters.Add(New OleDbParameter("@DNI", dni))
        comando.Parameters.Add(New OleDbParameter("@Nombre", nombre))
        comando.Parameters.Add(New OleDbParameter("@apellido", apellido))
        comando.Parameters.Add(New OleDbParameter("@Clave", clave))
        comando.Parameters.Add(New OleDbParameter("@Domicilio", domicilio))
        comando.Parameters.Add(New OleDbParameter("@Telefono", telefono))
        comando.Parameters.Add(New OleDbParameter("@Correo", correo))

        Conexion.Open()
        comando.ExecuteNonQuery()
        Conexion.Close()

    End Sub

    Public Function Usuarios_login(ByVal dni As Integer, ByVal clave As String) As DataSet
        Dim comando As New OleDb.OleDbCommand()
        comando.CommandType = CommandType.StoredProcedure
        comando.Connection = Me.Conexion
        Conexion.Open()
        comando.CommandText = "Usuario_login"
        comando.Parameters.Add(New OleDbParameter("@dni", dni))
        comando.Parameters.Add(New OleDbParameter("@clave", clave))
        Dim ds As New DataSet() 'System.Data.DataSet()
        Dim DA As New OleDbDataAdapter(comando)
        ''Fill= Método que Agrega filas al objeto DataSet y crea un objeto DataTable denominado "Tabla", en nuestro caso "Producto".
        DA.Fill(ds, "Socios")
        ''Cierro la conexión
        Conexion.Close()
        ''Como toda función debe retornar al uso RETURN
        Return ds

    End Function

End Class
